program pr;
var 
x: entero;

begin
while (x>0) 
x:=5

End.
